U.S. Robotics Connections 2/US Robotics Connections.iso/pc/sourcepc/palmpc.dir/00302.ls

Text File | 1996-03-01 | 757 b | 29 lines

on DrawNum
  global gCalNum, gSetNum, gLastNum, gOperation
  set lNumofChar to the number of chars in string(gCalNum)
  if lNumofChar > 12 then
    set lNumofChar to 12
  end if
  set lNumToSub to 12 - lNumofChar
  if lNumToSub > 0 then
    repeat with i = 1 to lNumToSub
      set the visible of sprite (48 - 12 + i) to 0
    end repeat
  end if
  updateStage()
  repeat with i = 1 to lNumofChar
    set lNum to char i of string(gCalNum)
    set lCastNum to the number of cast lNum
    set the castNum of sprite (48 - lNumofChar + i) to lCastNum
    set the visible of sprite (48 - lNumofChar + i) to 1
  end repeat
  updateStage()
end

on clearpuppets
  repeat with i = 1 to 48
    puppetSprite(i, 0)
    set the visible of sprite i to 1
  end repeat
end